home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-04 / smalltlk.zip / PRELUDE / MAGNITUD.P < prev    next >
Text File  |  1990-09-13  |  1KB  |  44 lines
  1. temp <- <primitive 110 9 >
  2. <primitive 112 temp 1        " max: " \
  3.     #( #[ 32 33 204 247 3 32 248 2 242 33 243 245] \
  4.     #(  ) ) >
  5.  
  6. <primitive 112 temp 2        " min: " \
  7.     #( #[ 32 33 199 247 3 32 248 2 242 33 243 245] \
  8.     #(  ) ) >
  9.  
  10. <primitive 112 temp 3        " between:and: " \
  11.     #( #[ 32 33 203 252 3 32 34 200 243 245] \
  12.     #(  ) ) >
  13.  
  14. <primitive 112 temp 4        " > " \
  15.     #( #[ 33 32 199 243 245] \
  16.     #(  ) ) >
  17.  
  18. <primitive 112 temp 5        " >= " \
  19.     #( #[ 32 33 204 251 3 32 33 201 243 245] \
  20.     #(  ) ) >
  21.  
  22. <primitive 112 temp 6        " ~= " \
  23.     #( #[ 32 33 201 172 243 245] \
  24.     #(  ) ) >
  25.  
  26. <primitive 112 temp 7        " = " \
  27.     #( #[ 32 33 204 251 3 32 33 199 172 243 245] \
  28.     #(  ) ) >
  29.  
  30. <primitive 112 temp 8        " < " \
  31.     #( #[ 33 32 204 243 245] \
  32.     #(  ) ) >
  33.  
  34. <primitive 112 temp 9        " <= " \
  35.     #( #[ 32 33 199 251 3 32 33 201 243 245] \
  36.     #(  ) ) >
  37.  
  38. <primitive 98 #Magnitude \
  39.     <primitive 97 #Magnitude #Object #\smalltlk\prelude\magnitud.st \
  40.     #(  ) \
  41.     #( #max: #min: #between:and: #> #>= #~= #= #< #<=  ) \
  42.     temp 3 4 > >
  43.  
  44.